home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 8
/
Aminet 8 (1995)(GTI - Schatztruhe)[!][Oct 1995].iso
/
Aminet
/
biz
/
demo
/
TwistDemo.lha
/
TwistDemo
/
Music
/
PlayTrack8.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1995-01-13
|
731b
|
28 lines
/* $VER: 1.2 © 1994 by Frank Würkner. Show current position. */
SIGNAL ON SYNTAX /* check syntax */
SIGNAL ON ERROR /* check if command succeeds */
OPTIONS FAILAT 6 /* ignore warnings */
ADDRESS 'YACDP' /* send to YACDP */
/* -------------------------- BEGIN OF YOUR CODE ------------------------- */
'GETVAR STATUS'
if (STATUS > 2) then do
'PLAYTRACK 8'
end
/* --------------------------- END OF YOUR CODE -------------------------- */
EXIT
SYNTAX:
SAY "AREXX error at line" SIGL ":" ERRORTEXT(RC)
EXIT
ERROR:
SAY "YACDP error at line" SIGL ":" ERR
EXIT